home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_b / staut2.atr < prev    next >
Text File  |  1995-04-22  |  3KB  |  102 lines
  1.  
  2. 10 REM SETAUTO2.BAS:4-24-82 
  3. 15 DIM AR$(121) 
  4. 20 GRAPHICS 1:SETCOLOR 2,0,0:? #6 
  5. 30 ? #6;"   SETAUTO2 WITH          850 BOOT" 
  6. 40 ? #6:? #6;" COPYRIGHT (c) 1982  JAMES STEINBRECHER" 
  7. 50 ? #6:? #6;"   USE TO CREATE" 
  8. 60 ? #6;"    AUTORUN.SYS" 
  9. 70 ? #6:? #6;" FOR BASIC  PROGRAM" 
  10. 80 ? #6:? #6;"        or" 
  11. 90 ? #6:? #6;"  ASSEMBLY COMMANDS" 
  12. 100 ? #6:? #6;"        or" 
  13. 110 ? #6:? #6;"ANY VALID BASIC LINE" 
  14. 120 OPEN #1,4,0,"K:" 
  15. 200 FOR I=1536 TO 1696 
  16. 210 READ D:POKE I,D 
  17. 220 NEXT I 
  18. 300 ? "       PLACE DISKETTE IN D1," 
  19. 310 ? "   AND DEPRESS: RETURN WHEN READY "; 
  20. 320 GET #1,C:?  
  21. 390 TRAP 440 
  22. 400 OPEN #2,12,0,"D:AUTORUN.SYS" 
  23. 410 CLOSE #2 
  24. 420 ? "         HAVE AUTORUN.SYS!" 
  25. 430 GOTO 500 
  26. 440 IF PEEK(195)<>170 THEN 900 
  27. 445 CLOSE #2 
  28. 450 ? "          NO AUTORUN.SYS" 
  29. 500 ? "       WANT NEW AUTORUN.SYS? "; 
  30. 510 GET #1,C:IF C=78 OR C=110 THEN 900 
  31. 520 IF C=89 THEN 550 
  32. 530 GOTO 510 
  33. 550 GRAPHICS 0:SETCOLOR 2,2,2 
  34. 560 ? :? " ENTER NEW AUTORUN AS A BASIC LINE" 
  35. 570 ? " UP TO 120 CHARACTORS:" 
  36. 580 ? :? " EXAMPLE;" 
  37. 590 ? :? " PRINT FRE(0):RUN";CHR$(34);"D:MENU";CHR$(34);":REM GAMES" 
  38. 600 ? :INPUT AR$ 
  39. 610 IF LEN(AR$)>120 THEN AR$=AR$(1,120) 
  40. 620 AR$(LEN(AR$)+1)=CHR$(155) 
  41. 630 FOR I=1 TO LEN(AR$) 
  42. 640 POKE 1536+127+I,ASC(AR$(I,I)) 
  43. 650 NEXT I 
  44. 660 OPEN #2,8,0,"D:AUTORUN.SYS" 
  45. 670 GOSUB 1500 
  46. 700 ? "WRITING COMMAND LINE":? AR$ 
  47. 710 PUT #2,255:PUT #2,255 
  48. 720 PUT #2,0:PUT #2,6 
  49. 730 PUT #2,255:PUT #2,6 
  50. 750 FOR I=1536 TO 1536+255 
  51. 760 PUT #2,PEEK(I) 
  52. 770 NEXT I 
  53. 800 PUT #2,224:PUT #2,2 
  54. 810 PUT #2,225:PUT #2,2 
  55. 820 PUT #2,0:PUT #2,6 
  56. 900 CLOSE #2 
  57. 910 CLOSE #1 
  58. 920 GRAPHICS 0 
  59. 930 END  
  60. 1000 DATA 76,82,6,83,58,0,72,162 
  61. 1020 DATA 96,169,12,157,66,3,32,86 
  62. 1040 DATA 228,162,96,169,3,157,66,3 
  63. 1060 DATA 169,3,157,68,3,169,6,157 
  64. 1080 DATA 69,3,104,157,75,3,41,240 
  65. 1100 DATA 73,16,9,12,157,74,3,76 
  66. 1120 DATA 86,228,134,85,169,0,133,86 
  67. 1140 DATA 132,84,96,72,32,50,6,162 
  68. 1160 DATA 96,169,11,157,66,3,169,0 
  69. 1180 DATA 157,72,3,157,73,3,104,76 
  70. 1200 DATA 86,228,169,0,32,6,6,162 
  71. 1220 DATA 0,142,125,6,174,125,6,189 
  72. 1240 DATA 126,6,201,155,240,10,160,2 
  73. 1260 DATA 32,59,6,238,125,6,208,236 
  74. 1280 DATA 162,2,160,0,32,50,6,169 
  75. 1300 DATA 12,141,252,2,96,12,32,32 
  76. 1320 DATA 82,85,78,34,68,58,77,69 
  77. 1340 DATA 78,85,155,32,32,32,32,32 
  78. 1360 DATA 32,32,32,32,32,32,32,32 
  79. 1380 DATA 32,32,32,32,32,32,32,32 
  80. 1400 DATA 32,32,32,32,32,32,32,32 
  81. 1500 ? :? "DO YOU WANT 850 BOOT "; 
  82. 1510 GET #1,ANS:? CHR$(ANS):IF ANS=78 OR ANS=110 THEN RETURN  
  83. 1520 IF ANS=89 THEN 1540 
  84. 1530 GOTO 1500 
  85. 1540 RESTORE 1600:? "WRITING 850 BOOT" 
  86. 1550 FOR I=1 TO 88 
  87. 1560 READ D:PUT #2,D 
  88. 1570 NEXT I 
  89. 1580 ? :RETURN  
  90. 1590 REM WILL LOAD AT STEP 14336 IN DOS 
  91. 1600 DATA 255,255,0,56,75,56,169,80 
  92. 1610 DATA 141,0,3,169,1,141,1,3,169 
  93. 1620 DATA 63,141,2,3,169,64,141,3,3 
  94. 1630 DATA 169,5,141,6,3,141,5,3,169 
  95. 1640 DATA 0,141,4,3,141,9,3,141,10 
  96. 1650 DATA 3,141,11,3,169,12,141,8,3 
  97. 1660 DATA 32,89,228,16,1,96,162,11 
  98. 1670 DATA 189,0,5,157,0,3,202,16,247 
  99. 1680 DATA 32,89,228,48,6,32,6,5,108 
  100. 1690 DATA 12,0,96 
  101. 1700 DATA 226,2,227,2,0,56 
  102.